home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib05.dsk / SCREEN WRITING.bas < prev    next >
BASIC Source File  |  2023-02-26  |  665b  |  32 lines
  1. 1  DIM X(100)
  2. 10  FOR J = 1 TO 6
  3. 20  INPUT B$(J)
  4. 25 LR = LR + LEN(B$(J))
  5. 30  NEXT J
  6. 35  PRINT "SETTING UP"
  7. 40 H = 5
  8. 50  FOR J = 1 TO 6
  9. 55 H1 = H
  10. 60  FOR I = 1 TO  LEN(B$(J))
  11. 70  VTAB J +1: HTAB H1
  12. 80 CU =  PEEK(40) +256 * PEEK(41) + PEEK(36)
  13. 90 X(P1) = CU
  14. 100 P1 = P1 +1:H1 = H1 +1
  15. 110  NEXT I
  16. 120  NEXT J
  17. 200  PRINT "PRESS ANY KEY TO CONTINUE"
  18. 210  GET Z$
  19. 220  HOME 
  20. 230 P1 = 0
  21. 240 Z =  PEEK(X(P1))
  22. 250  IF Z > = 192  THEN Z = Z +128
  23. 260  IF Z <192  AND Z > = 160  THEN Z = Z -64
  24. 270  POKE X(P1),Z
  25. 280 Z =  PEEK( -16384)
  26. 290  IF Z <128  THEN  GOTO 280
  27. 300  POKE  -16368,0
  28. 310  POKE X(P1),Z
  29. 320 P1 = P1 +1
  30. 330  IF P1 > = LR  THEN  GOTO 1000
  31. 340  GOTO 240
  32. 1000  END